perm filename W.PAG[PAG,LCS] blob sn#539632 filedate 1980-10-03 generic text, type T, neo UTF8
18000	34	IF(R.NE.17)GO TO 37
18100		SIG=Q(JK+5)
18200		IF(ABS(SIG).GE.100.)SIG=99
18300		LL=Q(JK+2)
18400		RSIG(LL)=SIG
18500	C⊗⊗⊗10/1/80⊗⊗⊗⊗⊗⊗⊗⊗⊗⊗	IF(IPG.LT.0)RSIG(LL)=SIG
18600	C  DO NOT REPEAT KSIG MADE UP OF NATURALS.
18700	CXX	IF(Q(JK).GT.3)SIG=SIG+Q(JK+6)*100.
18800	CXX  CLEF # IN P6 WITH KEY SIGS.
18900	C  NEXT CHANGES CODE NUM BACK TO ORIGINAL
19000	37	IF(R.LT.33)GO TO 130